home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / newstart / newst2.frm < prev    next >
Text File  |  1995-09-06  |  2KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   0  'None
  4.    Caption         =   "Show"
  5.    ClientHeight    =   1140
  6.    ClientLeft      =   3015
  7.    ClientTop       =   2520
  8.    ClientWidth     =   3465
  9.    Height          =   1545
  10.    Left            =   2955
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1140
  16.    ScaleWidth      =   3465
  17.    Top             =   2175
  18.    Width           =   3585
  19.    Begin PictureBox Picture1 
  20.       AutoSize        =   -1  'True
  21.       Height          =   720
  22.       Left            =   -15
  23.       ScaleHeight     =   690
  24.       ScaleWidth      =   3345
  25.       TabIndex        =   0
  26.       Top             =   0
  27.       Width           =   3375
  28.    End
  29. End
  30.  
  31. Sub Form_Click ()
  32.     Screen.MousePointer = 1
  33.     Reset
  34.     Unload Form2
  35.     form1.Show
  36. End Sub
  37.  
  38. Sub Form_GotFocus ()
  39.     Form2.WindowState = 2
  40.     Picture1.Picture = LoadPicture(form1.file1.filename)
  41.  '   Picture1.Visible = -1
  42.  '   Screen.MousePointer = 10
  43.  '   Picture1.AutoSize = -1
  44.  '   Picture1.Left = (Screen.Width - Picture1.Width) / 2 + 20
  45.  '   Picture1.Top = (Screen.Height - Picture1.Height) / 2 + 20
  46. End Sub
  47.  
  48. Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
  49. Form_Click
  50. End Sub
  51.  
  52. Sub Form_Load ()
  53.     Form_GotFocus
  54. End Sub
  55.  
  56. Sub Picture1_Click ()
  57.     Form_Click
  58. End Sub
  59.  
  60. Sub Picture1_GotFocus ()
  61.     Screen.MousePointer = 10
  62. End Sub
  63.  
  64. Sub Picture1_KeyDown (KeyCode As Integer, Shift As Integer)
  65.  Form_Click
  66. End Sub
  67.  
  68.